home *** CD-ROM | disk | FTP | other *** search
/ The World's Largest Collection of Windows Software / The World's Largest Collection of Windows Software - Disc 1.iso / connect / _j2 / wvnsc926 / rcs / ini_news.c < prev    next >
C/C++ Source or Header  |  1994-09-21  |  46KB  |  1,780 lines
  1. head     1.6;
  2. branch   ;
  3. access   ;
  4. symbols  V80:1.1 V76d:1.1;
  5. locks    ; strict;
  6. comment  @ * @;
  7.  
  8.  
  9. 1.6
  10. date     94.09.15.22.23.09;  author brydon;  state Exp;
  11. branches ;
  12. next     1.5;
  13.  
  14. 1.5
  15. date     94.09.06.12.46.21;  author brydon;  state Exp;
  16. branches ;
  17. next     1.4;
  18.  
  19. 1.4
  20. date     94.02.17.19.49.53;  author brydon;  state Exp;
  21. branches ;
  22. next     1.3;
  23.  
  24. 1.3
  25. date     93.12.08.01.28.01;  author rushing;  state Exp;
  26. branches ;
  27. next     1.2;
  28.  
  29. 1.2
  30. date     93.07.07.19.52.22;  author rushing;  state Exp;
  31. branches ;
  32. next     1.1;
  33.  
  34. 1.1
  35. date     93.02.16.20.53.50;  author rushing;  state Exp;
  36. branches ;
  37. next     ;
  38.  
  39.  
  40. desc
  41. @winvn version 0.76 placed into RCS
  42. @
  43.  
  44.  
  45. 1.6
  46. log
  47. @allow config files with read-only/archive/system bits set
  48. @
  49. text
  50. @/*
  51.  *                              
  52.  * $Id: ini_news.c 1.5 1994/09/06 12:46:21 brydon Exp $
  53.  * $Log: ini_news.c $
  54.  * Revision 1.5  1994/09/06  12:46:21  brydon
  55.  * win32 fixes, comments changed
  56.  *
  57.  * Revision 1.5  1994/08/09  15:30:00  brydon
  58.  * More searching, OPENFILENAME logic fix
  59.  *
  60.  * Revision 1.4  1994/02/17  19:49:53  brydon
  61.  * cleanup and fixes for win32
  62.  *
  63.  * Revision 1.3  1993/12/08  01:28:01  rushing
  64.  * new version box and cr lf consistency
  65.  *
  66.  * Revision 1.2  1993/07/07  19:52:22  rushing
  67.  * check value returned from getenv for NULL
  68.  *
  69.  * Revision 1.1  1993/02/16  20:53:50  rushing
  70.  * Initial revision
  71.  *
  72.  *
  73.  */
  74.  
  75. /*#*xx********************************************************************/
  76. /* Filename: Ini-News.c */
  77.  
  78. #include <windows.h>
  79. #include <stdlib.h>
  80. #include <direct.h>
  81. #include "WvGlob.h"
  82. #include <time.h>
  83. #include <commdlg.h>
  84.  
  85. #ifdef WIN32   /* Looks like SDK defines "WIN32", MSVCNT defines "_WIN32" */
  86. #ifndef _WIN32
  87. #define _WIN32
  88. #endif
  89. #endif
  90.  
  91. #ifndef TRACE
  92. #ifdef _DEBUG
  93. char    szDebugBuffer[80];
  94. #define TRACE(parm1,parm2) {\
  95.     wsprintf(szDebugBuffer,parm1,parm2);\
  96.     OutputDebugString(szDebugBuffer);}
  97. #else
  98. #define TRACE(parm1,parm2)
  99. #endif
  100. #endif
  101.  
  102. #define PROFTYPE "Admin"
  103.  
  104. /*************************************************************************
  105.   This function looks for the .Ini file and the NewsSrc file.  Each file
  106.   is searched for separately and they need not be in the same directory.
  107.   If neither file can be found, the user is asked to locate the files with
  108.   an OPENFILENAME dialog box.  Once the location of the NewSrc file is
  109.   known, it is saved in the WinVN.ini file.
  110.  
  111.   The search order is:
  112.     Command Line (one or two entries)
  113.     Environment variable "WINVN" or "winvn" (case sensitive in Win16)
  114.     Current Working directory (set by "Properties" dialog)
  115.     Application Directory
  116.     Windows Directory (eg. C:\WINDOWS)
  117.     Windows System Directory (eg. C:\WINDOWS\SYSTEM, \System32)
  118.     the path
  119.     result of an "Open File" dialog box (WinVN.ini only)
  120.     the .INI file (NewSrc only)
  121.     result of an "Open File" dialog box (NewSrc only)
  122.  
  123.  
  124.   If the Function is sucessful, the szAppProFile variable contains the path and
  125.   filename of the .Ini file and the szNewsSrc variable contains the path and
  126.   filename of the NewSrc file.  If either file does not exist, the "Open
  127.   File" dialog creates each file.  In all cases, the name of the NewSrc
  128.   file is written to the .INI file for future accesses.
  129.  
  130.   RETURNS:  zero if sucessful
  131.             -1 if one or both files could not be found
  132.  
  133.   NOTE: The command line allows for the use of unique names for the standard
  134.         WinVn.ini and NewSrc files. The entry order is .Ini and then NewSrc.
  135.  
  136.  Command line examples are as follows:
  137.  
  138.   1.  c:\WinVn\My.Ini<sp>c:\Tom\NewsSrc.Tom  => both unique names
  139.  
  140.   2.  c:\Tom<sp>c:\Tom\NewsSrc.Tom        => standard .Ini, unique NewSrc
  141.   2a. c:\Tom\<sp>c:\Tom\NewsSrc.Tom          (same, less ambiguous)
  142.  
  143.   3.  c:\Tom\TomVn.ini                    => unique .Ini, Standard NewSrc
  144.  
  145.   4.  c:\Tom                              => standard .Ini, Standard NewSrc
  146.   4a. c:\Tom\                                (same, less ambiguous)
  147.  
  148.   In the first example, if both files exist, szAppProFile = "c:\WinVn\My.Ini",
  149.   szNewsSrc = "c:\Tom\NewsSrc.Tom" and the function returns Zero.
  150.  
  151.  For all specification types other than the Command line:
  152.  1. Only one entry may be made.
  153.  2. The "Working directory" spec doesn't allow trailing "\".
  154.  3. Syntax and algorithm are otherwise the same as for Command Line.
  155.  
  156. **************************************************************************/
  157.  
  158. #define CHECK_DIR 1
  159. #define CHECK_FILE 2
  160.  
  161. /*  Routine to test existence of filename on path choice */
  162. BOOL ProbeFilePath(char *szFileSrc, char *szPath, char *szFname, int iChk)
  163. { 
  164.   DWORD stat;
  165.   OFSTRUCT ofb;
  166.  
  167.   /* Check for path in the form of "x:\dir\...\dir[\]" */
  168.   if(iChk & CHECK_DIR)
  169.   {
  170.     int i;
  171.     lstrcpy(szFileSrc, szPath);
  172.     i = lstrlen(szFileSrc);
  173.     if(i)
  174.     {
  175.       if (szFileSrc[i-1] == '\\')  /* Trailing '\', it must be a directory */
  176.       {
  177.         lstrcat(szFileSrc, szFname);
  178.         if (OpenFile (szFileSrc, &ofb, OF_EXIST) != HFILE_ERROR)
  179.         {
  180.           lstrcpy(szFileSrc, ofb.szPathName);
  181.           return (TRUE);
  182.         }
  183.         else
  184.           return(FALSE);
  185.       }
  186.     }
  187. #ifdef GetFileAttributes  /*  32 bit  */
  188.     stat = GetFileAttributes(szFileSrc);
  189.     if((stat != 0xFFFFFFFF) && (stat & FILE_ATTRIBUTE_DIRECTORY))
  190. #else                     /*  16 bit  */
  191.     stat = 0;  /* avoid 'unreferenced' warning */
  192.     if(TRUE)
  193. #endif
  194.     {
  195.       lstrcat(szFileSrc, "\\");
  196.       lstrcat(szFileSrc, szFname);
  197.       if (OpenFile (szFileSrc, &ofb, OF_EXIST) != HFILE_ERROR)
  198.       {
  199.         lstrcpy(szFileSrc, ofb.szPathName);
  200.         return TRUE;
  201.       }
  202.     }
  203.   }
  204.   
  205.   /* Check for non-directory file in the form of "x:\dir\...\dir\file.ext" */
  206.   if (iChk & CHECK_FILE)
  207.   {
  208.     lstrcpy(szFileSrc, szPath);
  209.  
  210. #ifdef GetFileAttributes
  211.     if (GetFileAttributes(szFileSrc) & FILE_ATTRIBUTE_DIRECTORY)
  212.       return(FALSE);
  213. #endif
  214.  
  215.     if (OpenFile (szFileSrc, &ofb, OF_EXIST) != HFILE_ERROR)
  216.     {
  217.       lstrcpy(szFileSrc, ofb.szPathName);
  218.       return TRUE;
  219.     }
  220.   }
  221.   return FALSE;
  222. }
  223.  
  224.  
  225.  
  226. /*  See if we can find the WinVN.ini and NewSrc files... */
  227. int LocIniSrc(HINSTANCE hInstance, LPSTR lpCmdLine)
  228. {
  229.   char szWPath[256];
  230.   
  231.   char szIniDef[] = "WinVN.ini";   /* ' .ini' default filename */
  232.   char szNewsDefault[] = "NewSrc"; /* 'newsrc' default filename  */
  233.  
  234.   BOOL fProfileFound = FALSE;
  235.   BOOL fNewsFound = FALSE;
  236.  
  237.   int iRvalue;
  238.  
  239.   LPSTR lpEnvStr;
  240.   OFSTRUCT ofOpenBuffer;
  241.  
  242.   ofOpenBuffer.cBytes = sizeof (OFSTRUCT);
  243.  
  244.      
  245.   if (*lpCmdLine != '\0')  /* Look at the Command Line */
  246.   {           /* path | path and file */
  247.     lstrcpy (szWPath, lpCmdLine);
  248.     TRACE("Checking Command Line: %s\n", szWPath);
  249.     iRvalue = lstrlen (szWPath);
  250.  
  251.     while (iRvalue--)
  252.     {           /* check for two arguments */
  253.       if (szWPath[iRvalue] == ' ')
  254.       { szWPath[iRvalue] = 0;
  255.         break;
  256.       }
  257.     }
  258.  
  259.     if (iRvalue > 0)
  260.     { /* two entries on command line - check for path and/or path\file */
  261.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  262.         szIniDef, CHECK_DIR | CHECK_FILE);
  263.       fNewsFound = ProbeFilePath(szNewsSrc, &szWPath[iRvalue + 1], 
  264.         szNewsDefault, CHECK_FILE);
  265.     }
  266.  
  267.     else
  268.     { /* single command line entry - path and/or path\file */
  269.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  270.         szIniDef, CHECK_DIR | CHECK_FILE);
  271.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  272.         szNewsDefault, CHECK_DIR);
  273.     }
  274.   if(fProfileFound && fNewsFound) return 0;
  275.   }
  276.  
  277.     
  278.  
  279.       /* Look in the Environment for a path */
  280.   if ((lpEnvStr = getenv ("winvn")) == NULL)
  281.   {
  282.     lpEnvStr = getenv ("WINVN");
  283.   }
  284.  
  285.   if (lpEnvStr && (iRvalue = lstrlen(lpEnvStr)))
  286.   {           /* found environment varible, check it out */
  287.     lstrcpy (szWPath, lpEnvStr);
  288.     
  289.     TRACE("Checking environment var: %s\n", szWPath);
  290.     if (!fProfileFound)
  291.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  292.         szIniDef, CHECK_DIR | CHECK_FILE);
  293.  
  294.     if (!fNewsFound)
  295.       fNewsFound = ProbeFilePath(szNewsSrc, &szWPath[iRvalue + 1], 
  296.         szNewsDefault, CHECK_DIR | CHECK_FILE);
  297.  
  298.     if (fProfileFound && fNewsFound)
  299.       return 0;
  300.   }
  301.  
  302.  
  303.  
  304.   /* Look in the current working Directory */
  305.   if (_getcwd(szWPath, sizeof(szWPath)))
  306.   {
  307.     TRACE("Checking current working directory: %s\n", szWPath);
  308.     if (!fProfileFound)
  309.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  310.         szIniDef, CHECK_DIR);
  311.  
  312.     if (!fNewsFound)
  313.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  314.         szNewsDefault, CHECK_DIR);
  315.  
  316.     if (fProfileFound && fNewsFound) return 0;
  317.   }
  318.  
  319.  
  320.  
  321.   /* Look in WinVn's Directory */
  322.   if (iRvalue = GetModuleFileName(hInstance, szWPath, sizeof(szWPath)))
  323.   {
  324.     while (iRvalue--)
  325.     {           /* remove the module name */
  326.       if (szWPath[iRvalue] == '\\')
  327.       { szWPath[++iRvalue] = 0;
  328.         break;
  329.       }
  330.     }
  331.  
  332.     TRACE("Checking WinVN directory: %s\n", szWPath);
  333.     if (!fProfileFound)
  334.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  335.         szIniDef, CHECK_DIR);
  336.  
  337.     if (!fNewsFound)
  338.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  339.         szNewsDefault, CHECK_DIR);
  340.  
  341.     if (fProfileFound && fNewsFound) return 0;
  342.   }
  343.  
  344.  
  345.  
  346.   /* Look in the Windows Directory */
  347.   if (GetWindowsDirectory(szWPath, sizeof(szWPath)))
  348.   {
  349.     TRACE("Checking Windows directory: %s\n", szWPath);
  350.     if (!fProfileFound)
  351.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  352.         szIniDef, CHECK_DIR);
  353.  
  354.     if (!fNewsFound)
  355.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  356.         szNewsDefault, CHECK_DIR);
  357.  
  358.     if (fProfileFound && fNewsFound) return 0;
  359.   }
  360.  
  361.  
  362.  
  363.   /* Look in the Windows System Directory */
  364.   if (GetSystemDirectory (szWPath, sizeof(szWPath)))
  365.   {
  366.     TRACE("Checking Windows System directory: %s\n", szWPath);
  367.     if (!fProfileFound)
  368.       fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  369.         szIniDef, CHECK_DIR);
  370.  
  371.     if (!fNewsFound)
  372.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  373.         szNewsDefault, CHECK_DIR);
  374.  
  375.     if (fProfileFound && fNewsFound) return 0;
  376.   }
  377.  
  378.  
  379.  
  380.   /* Try the current path */
  381.   szWPath[0] = '\0';
  382.   TRACE("Checking path\n", "");
  383.   if (!fProfileFound)
  384.     fProfileFound = ProbeFilePath(szAppProFile, szWPath,
  385.       szIniDef, CHECK_DIR);
  386.  
  387.   if (!fNewsFound)
  388.     fNewsFound = ProbeFilePath(szNewsSrc, szWPath,
  389.       szNewsDefault, CHECK_DIR);
  390.  
  391.   if (fProfileFound && fNewsFound) return 0;
  392.   else
  393.   { /* Ask the user if he wants to create the files */
  394.     static OPENFILENAME ofn;
  395.  
  396.     ofn.lStructSize       = sizeof(OPENFILENAME);
  397.     ofn.hwndOwner         = NULL;
  398.     ofn.hInstance         = NULL;
  399.  /* ofn.lpstrFilter       = (Filled in below)  */
  400.     ofn.lpstrCustomFilter = NULL;
  401.     ofn.nMaxCustFilter    = 0;
  402.     ofn.nFilterIndex      = 0;
  403.  /* ofn.lpstrFile         = (Filled in below)  */
  404.  /* ofn.nMaxFile          = (Filled in below)  */
  405.     ofn.lpstrFileTitle    = NULL;
  406.     ofn.nMaxFileTitle     = 0;
  407.     ofn.lpstrInitialDir   = szWPath;
  408.     ofn.lpstrTitle        = "Please identify existing or new filename";
  409.     ofn.Flags             =
  410.       OFN_CREATEPROMPT
  411. #ifdef OFN_NONETWORKBUTTON
  412.       | OFN_NONETWORKBUTTON
  413. #endif    
  414.       | OFN_NOREADONLYRETURN;
  415.     ofn.nFileOffset       = 0;
  416.     ofn.nFileExtension    = 0;
  417.  /* ofn.lpstrDefExt       = (Filled in below)  */
  418.     ofn.lCustData         = 0L;
  419.     ofn.lpfnHook          = NULL;
  420.     ofn.lpTemplateName    = NULL;
  421.  
  422.     if (!fProfileFound)
  423.     {
  424.       char szCreated[32];
  425.  
  426.       ofn.lpstrFilter       =
  427.         "Init Files (*.INI)\0*.ini\0All Files (*.*)\0*.*\0";
  428.       lstrcpy (szAppProFile, szIniDef);
  429.       ofn.lpstrFile         = szAppProFile;
  430.       ofn.nMaxFile          = sizeof(szAppProFile);
  431.       ofn.lpstrDefExt       = "INI";
  432.    
  433.       TRACE("Checking user-specified filename\n", "");
  434.       fProfileFound = GetOpenFileName(&ofn);
  435.       if (fProfileFound)
  436.       {
  437.         char dbuffer[9];
  438.         char tbuffer[9];
  439.         OFSTRUCT ofs;
  440.  
  441.      /* ofn.lpstrInitialDir = ...  */
  442.      
  443.         if (OpenFile(szAppProFile, &ofs, OF_EXIST) == HFILE_ERROR)
  444.         {
  445.           _strdate(dbuffer);
  446.           _strtime(tbuffer);
  447.    
  448.           TRACE("Writing new WinVN.INI file to %s\n", szAppProFile);
  449.           lstrcpy(szCreated, dbuffer);
  450.           lstrcat(szCreated, " ");
  451.           lstrcat(szCreated, tbuffer);
  452.    
  453.           WritePrivateProfileString(PROFTYPE, "Created",
  454.             szCreated, szAppProFile);
  455.         }
  456.       }
  457.     }
  458.  
  459.  
  460.     /* Look for NewSrc spec in WinVN.INI */
  461.     if (fProfileFound && !fNewsFound)
  462.     {
  463.       TRACE("Checking %s for NewSrc file", szAppProFile);
  464.       if(GetPrivateProfileString(PROFTYPE, "Newsrc", "",
  465.          szNewsSrc, sizeof(szNewsSrc), szAppProFile))
  466.       {
  467.         OFSTRUCT ofs;
  468.         fNewsFound = (OpenFile(szNewsSrc, &ofs, OF_EXIST) != HFILE_ERROR);
  469.       }
  470.     }
  471.  
  472.  
  473.     /* Give up?  Ask the user where the file is... */
  474.     if (fProfileFound && !fNewsFound)
  475.     {
  476.       ofn.lpstrFilter       =
  477.         "No-ext Files (*.)\0*.\0All Files (*.*)\0*.*\0";
  478.       ofn.nFilterIndex      = 0;
  479.       lstrcpy (szNewsSrc, szNewsDefault);
  480.       ofn.lpstrFile         = szNewsSrc;
  481.       ofn.nMaxFile          = sizeof(szNewsSrc);
  482.       ofn.lpstrDefExt       = "";
  483.     
  484.       fNewsFound = GetOpenFileName(&ofn);
  485.       if (fNewsFound)
  486.       {
  487.         HFILE hf;
  488.         OFSTRUCT ofs;
  489.         if (OpenFile(szNewsSrc, &ofs, OF_EXIST) == HFILE_ERROR)
  490.         {
  491.           hf = OpenFile(szNewsSrc, &ofs, OF_CREATE);
  492.           /* (Optionally write some default newsgroups here... */
  493.           _lclose(hf);
  494.         }
  495.       }
  496.     }
  497.   }
  498.  
  499.   if (fProfileFound && fNewsFound) return 0;
  500.   return (-1);
  501. }
  502.  
  503.  
  504. /*  Locate the WinVN.ini and NewSrc files... */
  505. int fnLocateFiles (HINSTANCE hInstance, LPSTR lpCmdLine)
  506. {
  507.   int result;
  508.   result = LocIniSrc(hInstance, lpCmdLine);
  509.   if (!result)
  510.   {
  511.     TRACE("WinVN.INI file located: %s\n", szAppProFile);
  512.     TRACE("NewSrc file located:    %s\n", szNewsSrc);
  513.     WritePrivateProfileString(PROFTYPE, "Newsrc",
  514.             szNewsSrc, szAppProFile);
  515.   }
  516.   return(result);
  517. } 
  518. @
  519.  
  520.  
  521. 1.5
  522. log
  523. @win32 fixes, comments changed
  524. @
  525. text
  526. @d3 1
  527. a3 1
  528.  * $Id: ini_news.c 1.5 1994/08/09  15:30:00  brydon Exp $
  529. d5 3
  530. d138 1
  531. a138 1
  532. #ifdef GetFileAttributes
  533. d141 2
  534. a142 1
  535. #else
  536. d160 1
  537. d162 1
  538. a162 2
  539.     stat = GetFileAttributes(szFileSrc);
  540.     if((stat == 0xFFFFFFFF) || !(stat & FILE_ATTRIBUTE_NORMAL))
  541. d182 2
  542. a183 2
  543.   char szIniDef[] = "WinVN.ini";   // ' .ini' default filename
  544.   char szNewsDefault[] = "NewSrc"; // 'newsrc' default filename
  545. d223 1
  546. a223 1
  547.         szNewsDefault, CHECK_DIR | CHECK_FILE);
  548. d350 1
  549. a350 1
  550.  // ofn.lpstrFilter       = (Filled in below)
  551. d354 2
  552. a355 2
  553.  // ofn.lpstrFile         = (Filled in below)
  554.  // ofn.nMaxFile          = (Filled in below)
  555. d368 1
  556. a368 1
  557.  // ofn.lpstrDefExt       = (Filled in below)
  558. d392 1
  559. a392 1
  560.      // ofn.lpstrInitialDir = ...
  561. d414 1
  562. a468 2
  563.  
  564.  
  565. @
  566.  
  567.  
  568. 1.4
  569. log
  570. @cleanup and fixes for win32
  571. @
  572. text
  573. @a0 1
  574.  
  575. d2 5
  576. d8 3
  577. a10 2
  578.  * $Id: ini_news.c 1.3 1993/12/08 01:28:01 rushing Exp $
  579.  * $Log: ini_news.c $
  580. d28 1
  581. a31 1
  582. #define defTempStringSize 128
  583. d33 19
  584. d53 17
  585. a69 1
  586.   This function looks for the .Ini file and the NewsSrc file.
  587. a70 6
  588.   The search order is: Command Line               Unique filenames
  589.                        Environment                Standard filenames
  590.                        Application Directory      Standard filenames
  591.                        Windows Directory          Standard filenames
  592.                        Windows System Directory   Standard filenames
  593.                        the path                   Standard filenames
  594. a71 1
  595.  
  596. d74 3
  597. a76 1
  598.   filename of the NewSrc file.
  599. d99 4
  600. a102 26
  601.   If the files do not exist but the path's do and if they contain the
  602.   standard file(s), szAppProFile is set to "c:\WinVn\WinVn.Ini",
  603.   szNewsSrc is set to "c:\Tom\NewSrc" and the function returns Zero.
  604.  
  605.   If the NewSrc file is not found first by it's unique name and then by the
  606.   standard name in the defined directory, the .ini path is searched for the
  607.   standard NewSrc filename and if this file is found, the path and name
  608.   are returned.
  609.  
  610.   If the command line entry is just a name, the search path is the following:
  611.            the current drive/directory
  612.            windows directory
  613.            windows system directory
  614.            the application directory
  615.            the path
  616.  
  617.   The above behavior may lead to the use of the wrong information files if the
  618.   standard names are used. It is recommended that unique names be used.
  619.  
  620.   If the .Ini file or the NewSrc file is/are not found, first by Name
  621.   then by Path with standard names, a warning is displayed and the
  622.   function continues to search for the file(s) in the order described
  623.   above ( Environment, Appication directory, ...etc).
  624.  
  625.   The intent of this is to allow multiple and unique .Ini and NewsSrc
  626.   location as well and an exhaustive attempt to locate the files.
  627. a103 6
  628.   [Additions to the function/program shold be to popup dialog boxes for the
  629.   necessary information if not found or it is incorrect. Maybe later!]
  630.  
  631.   H. Brydon: I added the dialog boxes to find files not found by the above,
  632.   and create new, empty files if required.  1994/01/25
  633.  
  634. d106 2
  635. a107 1
  636. /*-*xx********************************************************************/
  637. a108 1
  638.  
  639. d110 3
  640. a112 2
  641. BOOL ProbeFilePath(char *szFileSrc, char *szPath, char *szFname, BOOL bChk)
  642. { int i;
  643. d115 35
  644. a149 13
  645.   /* (Enhancement possibility: we can do better checking for directory
  646.       files and can get rid of the bChk variable.  We can use API call
  647.       GetFileAttributes that can check whether or not a file is a 
  648.       directory (ask for FILE_ATTRIBUTE_DIRECTORY)...  - H. Brydon )  */
  649.   lstrcpy(szFileSrc, szPath);
  650.   i = lstrlen(szPath);
  651.   if(i)
  652.   { if (szFileSrc[i-1] != '\\') lstrcat(szFileSrc, "\\");
  653.   }
  654.   lstrcat(szFileSrc, szFname);
  655.   if (OpenFile (szFileSrc, &ofb, OF_EXIST) != HFILE_ERROR)
  656.   { lstrcpy(szFileSrc, ofb.szPathName);
  657.     return TRUE;
  658. d152 10
  659. a161 2
  660.   if (bChk)
  661.   { lstrcpy(szFileSrc, szPath);
  662. d163 2
  663. a164 1
  664.     { lstrcpy(szFileSrc, ofb.szPathName);
  665. a167 3
  666.   
  667.   // other tests can go here...
  668.   
  669. a172 2
  670.  
  671.  
  672. d174 3
  673. a176 3
  674. int fnLocateFiles (HINSTANCE hInstance, LPSTR lpCmdLine)
  675. { char szPath[defTempStringSize];
  676.   char szWPath[defTempStringSize];
  677. a179 1
  678.   char szEnv[] = "WINVN";          // environment variable
  679. d194 3
  680. a196 2
  681.     lstrcpy (szPath, lpCmdLine);
  682.     iRvalue = lstrlen (szPath);
  683. d200 2
  684. a201 2
  685.       if (szPath[iRvalue] == ' ')
  686.       { szPath[iRvalue] = 0;
  687. d207 5
  688. a211 4
  689.     { /* two entries on command line */
  690.       fProfileFound = ProbeFilePath(szAppProFile, szPath, szIniDef,TRUE);
  691.       fNewsFound = ProbeFilePath(szNewsSrc, &szPath[iRvalue + 1], 
  692. szNewsDefault,TRUE);
  693. d215 5
  694. a219 3
  695.     { /* single command line entry - assume it is a path and a file name */
  696.       fProfileFound = ProbeFilePath(szAppProFile, szPath, szIniDef,FALSE);
  697.       fNewsFound = ProbeFilePath(szNewsSrc, szPath, szNewsDefault, FALSE);
  698. d227 1
  699. a227 1
  700.   if ((lpEnvStr = getenv (szEnv)) == NULL)
  701. d229 1
  702. a229 2
  703.     AnsiLowerBuff (szEnv, lstrlen (szEnv));
  704.     lpEnvStr = getenv (szEnv);
  705. d234 1
  706. a234 1
  707.     lstrcpy (szPath, lpEnvStr);
  708. d236 1
  709. d238 2
  710. a239 1
  711.       fProfileFound = ProbeFilePath(szAppProFile, szPath, szIniDef,FALSE);
  712. d242 2
  713. a243 2
  714.       fNewsFound = ProbeFilePath(szNewsSrc, &szPath[iRvalue + 1], 
  715. szNewsDefault, FALSE);
  716. d250 18
  717. d269 1
  718. a269 1
  719.   if ((iRvalue = GetModuleFileName(hInstance, szWPath, defTempStringSize)))
  720. d279 1
  721. d281 2
  722. a282 1
  723.       fProfileFound = ProbeFilePath(szAppProFile, szWPath, szIniDef, FALSE);
  724. d285 2
  725. a286 1
  726.       fNewsFound = ProbeFilePath(szNewsSrc, szWPath, szNewsDefault, FALSE);
  727. d292 16
  728. a307 17
  729. /*  Note:  The following two code segments are written and tested but
  730. *    commented out because they are believed to be superfluous.  Just
  731. *    searching for the files on the current path (below) looks in these
  732. *    directories.  If I am wrong, then please uncomment this code.  It has
  733. *    been tested properly and works...  HAB  */
  734.  
  735.  
  736.       /* Look in the Windows Directory */
  737. //  if ((iRvalue = (int) GetWindowsDirectory (szPath, defTempStringSize)))
  738. //  { if (!fProfileFound)
  739. //      fProfileFound = ProbeFilePath(szAppProFile, szPath, szIniDef, FALSE);
  740. //  
  741. //    if (!fNewsFound)
  742. //      fNewsFound = ProbeFilePath(szNewsSrc, szPath, szNewsDefault, FALSE);
  743. //  
  744. //    if (fProfileFound && fNewsFound) return 0;
  745. //   }
  746. d310 7
  747. d318 3
  748. d322 2
  749. a323 10
  750.       /* Try the Windows System Directory */
  751. //  if ((iRvalue = (int) GetSystemDirectory (szPath, defTempStringSize)))
  752. //  { if (!fProfileFound)
  753. //      fProfileFound = ProbeFilePath(szAppProFile, szPath, szIniDef, FALSE);
  754. //
  755. //    if (!fNewsFound)
  756. //      fNewsFound = ProbeFilePath(szNewsSrc, szPath, szNewsDefault, FALSE);
  757. //
  758. //    if (fProfileFound && fNewsFound) return 0;
  759. //  }
  760. d328 2
  761. a329 1
  762.   szPath[0] = '\0';
  763. d331 2
  764. a332 1
  765.     fProfileFound = ProbeFilePath(szAppProFile, szPath, szIniDef, FALSE);
  766. d335 2
  767. a336 1
  768.     fNewsFound = ProbeFilePath(szNewsSrc, szPath, szNewsDefault, FALSE);
  769. d358 4
  770. a361 4
  771. #ifdef WIN32
  772.     | OFN_NONETWORKBUTTON
  773. #endif      
  774.       | OFN_NOREADONLYRETURN;
  775. d370 2
  776. a371 9
  777.     { char szCreated[32];
  778.  
  779.    // The following code supposedly used to work with older MS and Borland
  780.    // compilers, but doesn't now (definitely not with MSVC/NT 1.0)
  781.    // static char *szFilter[] = { "Init Files (*.INI)", "*.ini",
  782.    //                             "All Files (*.*)",    "*.*",
  783.    //                             "",""};
  784.    
  785.    // ofn.lpstrFilter       = szFilter[0];
  786. d375 1
  787. d380 1
  788. d383 2
  789. a384 1
  790.       { char dbuffer[9];
  791. d386 1
  792. d390 4
  793. a393 2
  794.         _strdate(dbuffer);
  795.         _strtime(tbuffer);
  796. d395 4
  797. a398 3
  798.         lstrcpy(szCreated, dbuffer);
  799.         lstrcat(szCreated, " ");
  800.         lstrcat(szCreated, tbuffer);
  801. d400 3
  802. a402 2
  803.         WritePrivateProfileString(szAppName, "Created",
  804.           szCreated, szAppProFile);
  805. d405 18
  806. a422 3
  807.    
  808.     if (!fNewsFound)
  809.     { ofn.lpstrFilter       =
  810. d425 1
  811. d432 2
  812. a433 1
  813.       { HFILE hf;
  814. d450 2
  815. a451 6
  816.  
  817.  
  818.  
  819. int 
  820. old_fnLocateFiles (HINSTANCE hInstance, LPSTR lpCmdLine)
  821.  
  822. d453 11
  823. a463 202
  824.  
  825.   char szPath[defTempStringSize];
  826.   char szNews[defTempStringSize];
  827.   char szTemp[defTempStringSize];
  828.  
  829.   char szEnv[] = "WINVN";
  830.   char szIni[] = ".Ini";
  831.   char szNewsDefault[] = "NewSrc";
  832.  
  833.   BOOL fNewsFound = FALSE;
  834.   BOOL fProfileFound = FALSE;
  835.  
  836.   int iRvalue;
  837.  
  838.   LPSTR lpEnvStr;
  839.   OFSTRUCT ofOpenBuffer;
  840.  
  841.   ofOpenBuffer.cBytes = sizeof (OFSTRUCT);
  842.  
  843.   while (1)
  844.     {
  845.       /* Look at the Command Line */
  846.       if (*lpCmdLine != '\0')
  847.     {           /* path | path and file */
  848.       lstrcpy (szPath, lpCmdLine);
  849.       iRvalue = lstrlen (szPath);
  850.  
  851.       while (iRvalue--)
  852.         {           /* check for two arguments */
  853.           if (szPath[iRvalue] == ' ')
  854.         {
  855.           szPath[iRvalue] = 0;
  856.           break;
  857.         }
  858.         }
  859.  
  860.       if (iRvalue > 0)
  861.         {           /* two entries on command line */
  862.           lstrcpy (szNews, &szPath[iRvalue + 1]);
  863.           lstrcpy (szTemp, szNews);
  864.  
  865.           /* assume it is a path and a filename */
  866.           if (OpenFile (szNews, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  867.         {
  868.           lstrcpy (szNewsSrc, szNews);
  869.           fNewsFound = TRUE;
  870.         }
  871.           else
  872.         {
  873.           /* assume it is just a path name and look for NEWSSRC */
  874.           lstrcpy (szNews, szTemp);
  875.           iRvalue = lstrlen (szNews);
  876.           if (szNews[iRvalue - 1] != '\\')
  877.             {
  878.               lstrcat (szNews, "\\");
  879.             }
  880.           lstrcat (szNews, szNewsDefault);
  881.  
  882.           if (OpenFile (szNews, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  883.             {
  884.               fNewsFound = TRUE;
  885.               lstrcpy (szNewsSrc, szNews);
  886.             }
  887.           else
  888.             {       /* assume it has a bad filename */
  889.               while (iRvalue--)
  890.             {
  891.               if (szTemp[iRvalue] == '\\')
  892.                 {
  893.                   szTemp[iRvalue + 1] = 0;
  894.                   break;
  895.                 }
  896.             }
  897.  
  898.               lstrcat (szTemp, szNewsDefault);
  899.               if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  900.             {
  901.               fNewsFound = TRUE;
  902.               lstrcpy (szNewsSrc, szTemp);
  903.             }
  904.             }
  905.  
  906.           if (!fNewsFound)
  907.             {
  908.               /* need to add a dialog that the user may enter the 
  909.                * information! */
  910.               MessageBox (NULL,
  911.             "Can not use the Command Line NewsSrc Information!",
  912.                   "Soft Error",
  913.                   MB_OK | MB_ICONQUESTION);
  914.             }
  915.         }
  916.  
  917.           /* looking for Ini, assume it is a path and a file name */
  918.           if (OpenFile (szPath, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  919.         {
  920.           fProfileFound = TRUE;
  921.           lstrcpy (szAppProFile, szPath);
  922.         }
  923.           else
  924.         {
  925.  
  926.           /* assume it is just a path name and look for winvn.ini */
  927.           lstrcpy (szTemp, szPath);
  928.           iRvalue = lstrlen (szTemp);
  929.           if (szTemp[iRvalue - 1] != '\\')
  930.             {
  931.               lstrcat (szTemp, "\\");
  932.             }
  933.           lstrcat (szTemp, szEnv);
  934.           lstrcat (szTemp, szIni);
  935.  
  936.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  937.             {
  938.               fProfileFound = TRUE;
  939.               lstrcpy (szAppProFile, szTemp);
  940.             }
  941.           else
  942.             {       /* assume a bad filename */
  943.               lstrcpy (szTemp, szPath);
  944.               while (iRvalue--)
  945.             {
  946.               if (szTemp[iRvalue] == '\\')
  947.                 {
  948.                   szTemp[iRvalue + 1] = 0;
  949.                   break;
  950.                 }
  951.             }
  952.  
  953.               lstrcat (szTemp, szEnv);
  954.               lstrcat (szTemp, szIni);
  955.  
  956.               if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  957.             {
  958.               fProfileFound = TRUE;
  959.               lstrcpy (szAppProFile, szTemp);
  960.             }
  961.             }
  962.  
  963.           if (!fProfileFound)
  964.             {
  965.               /* need to add a dialog so that the user may */
  966.               /* enter/correct the information! */
  967.               MessageBox (NULL,
  968.                 "Can not use the Command Line Ini Information!",
  969.                   "Soft Error",
  970.                   MB_OK | MB_ICONQUESTION);
  971.  
  972.             }
  973.  
  974.         }
  975.  
  976.           if (fProfileFound && !fNewsFound)
  977.         { /* try the .Ini path for the standard NewsSrc */
  978.           iRvalue = lstrlen (szPath);
  979.           while (iRvalue--)
  980.             {
  981.               if (szPath[iRvalue] == '\\')
  982.             {
  983.               szPath[++iRvalue] = 0;
  984.               break;
  985.             }
  986.             }
  987.  
  988.           lstrcpy (szNews, szPath);
  989.           lstrcat (szNews, szNewsDefault);
  990.           if (OpenFile (szNews, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  991.             {
  992.               fNewsFound = TRUE;
  993.               lstrcpy (szNewsSrc, szNews);
  994.               break;
  995.             }
  996.  
  997.         }
  998.  
  999.         }
  1000.       else
  1001.         {           /* single command line entry */
  1002.           /* assume it is a path and a file name */
  1003.           lstrcpy (szTemp, szPath);
  1004.  
  1005.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1006.         {
  1007.           lstrcpy (szAppProFile, szTemp);
  1008.           fProfileFound = TRUE;
  1009.  
  1010.           /* Use the ini path and look for NewsSrc */
  1011.           iRvalue = lstrlen (szPath);
  1012.           lstrcpy (szTemp, szPath);
  1013.           if (szTemp[iRvalue - 1] != '\\')
  1014.             {
  1015.               lstrcat (szTemp, "\\");
  1016.             }
  1017.           lstrcat (szTemp, szNewsDefault);
  1018.  
  1019.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1020.             {
  1021.               lstrcpy (szNewsSrc, szTemp);
  1022.               fNewsFound = TRUE;
  1023.               break;
  1024.             }
  1025.         }
  1026. a464 197
  1027.           /* could not find .Ini or NewsSrc assume it is just a */
  1028.           /* path name and look for winvn.ini */
  1029.           iRvalue = lstrlen (szPath);
  1030.           if (szPath[iRvalue - 1] != '\\')
  1031.         {
  1032.           lstrcat (szPath, "\\");
  1033.         }
  1034.           lstrcpy (szTemp, szPath);
  1035.  
  1036.           if (!fProfileFound)
  1037.         {
  1038.           lstrcat (szTemp, szEnv);
  1039.           lstrcat (szTemp, szIni);
  1040.  
  1041.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1042.             {
  1043.               lstrcpy (szAppProFile, szTemp);
  1044.               fProfileFound = TRUE;
  1045.             }
  1046.  
  1047.           lstrcpy (szTemp, szPath);
  1048.           lstrcat (szTemp, szNewsDefault);
  1049.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1050.             {
  1051.               lstrcpy (szNewsSrc, szTemp);
  1052.               fNewsFound = TRUE;
  1053.             }
  1054.  
  1055.         }
  1056.  
  1057.           if (fProfileFound && fNewsFound)
  1058.         {
  1059.           break;
  1060.         }
  1061.  
  1062.           /* need to add a dialog that the user may enter the */
  1063.           /* information! */
  1064.           lstrcpy (szTemp, "Could not use the Command Line Information for ");
  1065.  
  1066.           if (!fProfileFound && !fNewsFound)
  1067.         {
  1068.           lstrcat (szTemp, ".Ini and NewsSrc");
  1069.         }
  1070.           else if (!fProfileFound)
  1071.         {
  1072.           lstrcat (szTemp, szIni);
  1073.         }
  1074.           else
  1075.         {
  1076.           lstrcat (szTemp, szNewsDefault);
  1077.         }
  1078.  
  1079.           MessageBox (NULL, szTemp, "Soft Error", MB_OK | MB_ICONQUESTION);
  1080.  
  1081.         }
  1082.  
  1083.     }
  1084.  
  1085.  
  1086.       /* Look in the Environment for a path */
  1087.       if ((lpEnvStr = getenv (szEnv)) == NULL)
  1088.     {
  1089.       AnsiLowerBuff (szEnv, lstrlen (szEnv));
  1090.       lpEnvStr = getenv (szEnv);
  1091.     }
  1092.  
  1093.       if (lpEnvStr && (iRvalue = lstrlen (lpEnvStr)))
  1094.     {           /* found environment varible, check it out */
  1095.       lstrcpy (szPath, lpEnvStr);
  1096.       if (szPath[iRvalue - 1] != '\\')
  1097.         {
  1098.           lstrcat (szPath, "\\");
  1099.         }
  1100.  
  1101.       if (!fProfileFound)
  1102.         {           /* look for the .Ini file */
  1103.           lstrcpy (szAppProFile, szPath);
  1104.           lstrcat (szAppProFile, szEnv);
  1105.           lstrcat (szAppProFile, szIni);
  1106.  
  1107.           if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1108.         {
  1109.           fProfileFound = TRUE;
  1110.         }
  1111.         }
  1112.  
  1113.       if (!fNewsFound)
  1114.         {           /* look for the .NewsSrc file */
  1115.           lstrcpy (szNewsSrc, szPath);
  1116.           lstrcat (szNewsSrc, szNewsDefault);
  1117.  
  1118.           if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1119.         {
  1120.           fNewsFound = TRUE;
  1121.         }
  1122.         }
  1123.  
  1124.       if (fProfileFound && fNewsFound)
  1125.         {
  1126.           break;
  1127.         }
  1128.  
  1129.     }
  1130.  
  1131.  
  1132.       /* Look in WinVn's Directory */
  1133.       if ((iRvalue = GetModuleFileName (hInstance, szPath, defTempStringSize)))
  1134.     {
  1135.       while (iRvalue--)
  1136.         {           /* remove the module name */
  1137.           if (szPath[iRvalue] == '\\')
  1138.         {
  1139.           szPath[++iRvalue] = 0;
  1140.           break;
  1141.         }
  1142.         }
  1143.  
  1144.       if (!fProfileFound)
  1145.         {           /* look for the .Ini file */
  1146.           lstrcpy (szAppProFile, szPath);
  1147.           lstrcat (szAppProFile, szEnv);
  1148.           lstrcat (szAppProFile, szIni);
  1149.           if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1150.         {
  1151.           fProfileFound = TRUE;
  1152.         }
  1153.         }
  1154.  
  1155.       if (!fNewsFound)
  1156.         {           /* look for the NewsSrc file */
  1157.           lstrcpy (szNewsSrc, szPath);
  1158.           lstrcat (szNewsSrc, szNewsDefault);
  1159.  
  1160.           if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1161.         {
  1162.           fNewsFound = TRUE;
  1163.         }
  1164.         }
  1165.  
  1166.       if (fProfileFound && fNewsFound)
  1167.         {
  1168.           break;
  1169.         }
  1170.  
  1171.     }
  1172.  
  1173.  
  1174.       /* Look in the Windows's Directory */
  1175.       if ((iRvalue = (int) GetWindowsDirectory (szPath, defTempStringSize)))
  1176.     {
  1177.       lstrcat (szPath, "\\");
  1178.  
  1179.       if (!fProfileFound)
  1180.         {           /* look for the .Ini file */
  1181.           lstrcpy (szAppProFile, szPath);
  1182.           lstrcat (szAppProFile, szEnv);
  1183.           lstrcat (szAppProFile, szIni);
  1184.           if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1185.         {
  1186.           fProfileFound = TRUE;
  1187.         }
  1188.         }
  1189.  
  1190.       if (!fNewsFound)
  1191.         {           /* look for the NewsSrc file */
  1192.           lstrcpy (szNewsSrc, szPath);
  1193.           lstrcat (szNewsSrc, szNewsDefault);
  1194.  
  1195.           if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1196.         {
  1197.           fNewsFound = TRUE;
  1198.         }
  1199.         }
  1200.  
  1201.       if (fProfileFound && fNewsFound)
  1202.         {
  1203.           break;
  1204.         }
  1205.  
  1206.     }
  1207.  
  1208.  
  1209.       /* Try the Windows System's Directory */
  1210.       if ((iRvalue = (int) GetSystemDirectory (szPath, defTempStringSize)))
  1211.     {
  1212.       lstrcat (szPath, "\\");
  1213.  
  1214.       if (!fProfileFound)
  1215.         {           /* look for the .Ini file */
  1216.           lstrcpy (szAppProFile, szPath);
  1217.           lstrcat (szAppProFile, szEnv);
  1218.           lstrcat (szAppProFile, szIni);
  1219.           if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1220.         {
  1221.           fProfileFound = TRUE;
  1222.         }
  1223.         }
  1224. a465 59
  1225.       if (!fNewsFound)
  1226.         {           /* look for the NewsSrc file */
  1227.           lstrcpy (szNewsSrc, szPath);
  1228.           lstrcat (szNewsSrc, szNewsDefault);
  1229.  
  1230.           if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1231.         {
  1232.           fNewsFound = TRUE;
  1233.         }
  1234.         }
  1235.  
  1236.       if (fProfileFound && fNewsFound)
  1237.         {
  1238.           break;
  1239.         }
  1240.  
  1241.     }
  1242.  
  1243.       /* Last chance, Try the current path */
  1244.       if (!fProfileFound)
  1245.     {           /* look for the .Ini file */
  1246.       lstrcpy (szAppProFile, szEnv);
  1247.       lstrcat (szAppProFile, szIni);
  1248.       if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1249.         {
  1250.           fProfileFound = TRUE;
  1251.         }
  1252.     }
  1253.  
  1254.       if (!fNewsFound)
  1255.     {           /* look for the NewsSrc file */
  1256.       lstrcpy (szNewsSrc, szNewsDefault);
  1257.  
  1258.       if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1259.         {
  1260.           fNewsFound = TRUE;
  1261.         }
  1262.     }
  1263.  
  1264.       if (fProfileFound && fNewsFound)
  1265.     {
  1266.       break;
  1267.     }
  1268.  
  1269.       /* No potatoes, RTFM
  1270.        * need to add a dialog that the user may enter the information!
  1271.        */
  1272.       MessageBox (NULL,
  1273.           "Can Not Find Your .Ini File or NewsSrc File",
  1274.           "Fatal Error",
  1275.           MB_OK | MB_ICONEXCLAMATION);
  1276.  
  1277.       return (-1);
  1278.  
  1279.     }
  1280.  
  1281.   return (0);
  1282.  
  1283. }
  1284. @
  1285.  
  1286.  
  1287. 1.3
  1288. log
  1289. @new version box and cr lf consistency
  1290. @
  1291. text
  1292. @d4 5
  1293. a8 2
  1294.  * $Id: ini-news.c 1.2 1993/07/07 19:52:22 rushing Exp rushing $
  1295.  * $Log: ini-news.c $
  1296. d24 2
  1297. a25 1
  1298.  
  1299. d51 1
  1300. a51 1
  1301.   1. c:\WinVn\My.Ini<sp>c:\Tom\NewsSrc.Tom  => both unique names
  1302. d53 2
  1303. a54 1
  1304.   2. c:\Tom<sp>c:\Tom\NewsSrc.Tom        => standard .Ini, unique NewSrc
  1305. d56 1
  1306. a56 1
  1307.   3. c:\Tom\TomVn.ini                    => unique .Ini, Standard NewSrc
  1308. d58 2
  1309. a59 1
  1310.   4. c:\Tom                              => standard .Ini, Standard NewSrc
  1311. d91 2
  1312. a92 2
  1313.   Additions to the function/program shold be to popup dialog boxes for the
  1314.   necessary information if not found or it is incorrect. Maybe later!
  1315. d94 3
  1316. d101 271
  1317. d373 1
  1318. a373 1
  1319. fnLocateFiles (HINSTANCE hInstance, LPSTR lpCmdLine)
  1320. d398 232
  1321. a629 232
  1322.       if (*lpCmdLine != NULL)
  1323.     {            /* path | path and file */
  1324.       lstrcpy (szPath, lpCmdLine);
  1325.       iRvalue = lstrlen (szPath);
  1326.  
  1327.       while (iRvalue--)
  1328.         {            /* check for two arguments */
  1329.           if (szPath[iRvalue] == ' ')
  1330.         {
  1331.           szPath[iRvalue] = 0;
  1332.           break;
  1333.         }
  1334.         }
  1335.  
  1336.       if (iRvalue > 0)
  1337.         {            /* two entries on command line */
  1338.           lstrcpy (szNews, &szPath[iRvalue + 1]);
  1339.           lstrcpy (szTemp, szNews);
  1340.  
  1341.           /* assume it is a path and a filename */
  1342.           if (OpenFile (szNews, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1343.         {
  1344.           lstrcpy (szNewsSrc, szNews);
  1345.           fNewsFound = TRUE;
  1346.         }
  1347.           else
  1348.         {
  1349.           /* assume it is just a path name and look for NEWSSRC */
  1350.           lstrcpy (szNews, szTemp);
  1351.           iRvalue = lstrlen (szNews);
  1352.           if (szNews[iRvalue - 1] != '\\')
  1353.             {
  1354.               lstrcat (szNews, "\\");
  1355.             }
  1356.           lstrcat (szNews, szNewsDefault);
  1357.  
  1358.           if (OpenFile (szNews, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1359.             {
  1360.               fNewsFound = TRUE;
  1361.               lstrcpy (szNewsSrc, szNews);
  1362.             }
  1363.           else
  1364.             {        /* assume it has a bad filename */
  1365.               while (iRvalue--)
  1366.             {
  1367.               if (szTemp[iRvalue] == '\\')
  1368.                 {
  1369.                   szTemp[iRvalue + 1] = 0;
  1370.                   break;
  1371.                 }
  1372.             }
  1373.  
  1374.               lstrcat (szTemp, szNewsDefault);
  1375.               if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1376.             {
  1377.               fNewsFound = TRUE;
  1378.               lstrcpy (szNewsSrc, szTemp);
  1379.             }
  1380.             }
  1381.  
  1382.           if (!fNewsFound)
  1383.             {
  1384.               /* need to add a dialog that the user may enter the 
  1385.                * information! */
  1386.               MessageBox (NULL,
  1387.             "Can not use the Command Line NewsSrc Information!",
  1388.                   "Soft Error",
  1389.                   MB_OK | MB_ICONQUESTION);
  1390.             }
  1391.         }
  1392.  
  1393.           /* looking for Ini, assume it is a path and a file name */
  1394.           if (OpenFile (szPath, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1395.         {
  1396.           fProfileFound = TRUE;
  1397.           lstrcpy (szAppProFile, szPath);
  1398.         }
  1399.           else
  1400.         {
  1401.  
  1402.           /* assume it is just a path name and look for winvn.ini */
  1403.           lstrcpy (szTemp, szPath);
  1404.           iRvalue = lstrlen (szTemp);
  1405.           if (szTemp[iRvalue - 1] != '\\')
  1406.             {
  1407.               lstrcat (szTemp, "\\");
  1408.             }
  1409.           lstrcat (szTemp, szEnv);
  1410.           lstrcat (szTemp, szIni);
  1411.  
  1412.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1413.             {
  1414.               fProfileFound = TRUE;
  1415.               lstrcpy (szAppProFile, szTemp);
  1416.             }
  1417.           else
  1418.             {        /* assume a bad filename */
  1419.               lstrcpy (szTemp, szPath);
  1420.               while (iRvalue--)
  1421.             {
  1422.               if (szTemp[iRvalue] == '\\')
  1423.                 {
  1424.                   szTemp[iRvalue + 1] = 0;
  1425.                   break;
  1426.                 }
  1427.             }
  1428.  
  1429.               lstrcat (szTemp, szEnv);
  1430.               lstrcat (szTemp, szIni);
  1431.  
  1432.               if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1433.             {
  1434.               fProfileFound = TRUE;
  1435.               lstrcpy (szAppProFile, szTemp);
  1436.             }
  1437.             }
  1438.  
  1439.           if (!fProfileFound)
  1440.             {
  1441.               /* need to add a dialog so that the user may */
  1442.               /* enter/correct the information! */
  1443.               MessageBox (NULL,
  1444.                 "Can not use the Command Line Ini Information!",
  1445.                   "Soft Error",
  1446.                   MB_OK | MB_ICONQUESTION);
  1447.  
  1448.             }
  1449.  
  1450.         }
  1451.  
  1452.           if (fProfileFound && !fNewsFound)
  1453.         { /* try the .Ini path for the standard NewsSrc */
  1454.           iRvalue = lstrlen (szPath);
  1455.           while (iRvalue--)
  1456.             {
  1457.               if (szPath[iRvalue] == '\\')
  1458.             {
  1459.               szPath[++iRvalue] = 0;
  1460.               break;
  1461.             }
  1462.             }
  1463.  
  1464.           lstrcpy (szNews, szPath);
  1465.           lstrcat (szNews, szNewsDefault);
  1466.           if (OpenFile (szNews, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1467.             {
  1468.               fNewsFound = TRUE;
  1469.               lstrcpy (szNewsSrc, szNews);
  1470.               break;
  1471.             }
  1472.  
  1473.         }
  1474.  
  1475.         }
  1476.       else
  1477.         {            /* single command line entry */
  1478.           /* assume it is a path and a file name */
  1479.           lstrcpy (szTemp, szPath);
  1480.  
  1481.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1482.         {
  1483.           lstrcpy (szAppProFile, szTemp);
  1484.           fProfileFound = TRUE;
  1485.  
  1486.           /* Use the ini path and look for NewsSrc */
  1487.           iRvalue = lstrlen (szPath);
  1488.           lstrcpy (szTemp, szPath);
  1489.           if (szTemp[iRvalue - 1] != '\\')
  1490.             {
  1491.               lstrcat (szTemp, "\\");
  1492.             }
  1493.           lstrcat (szTemp, szNewsDefault);
  1494.  
  1495.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1496.             {
  1497.               lstrcpy (szNewsSrc, szTemp);
  1498.               fNewsFound = TRUE;
  1499.               break;
  1500.             }
  1501.         }
  1502.  
  1503.           /* could not find .Ini or NewsSrc assume it is just a */
  1504.           /* path name and look for winvn.ini */
  1505.           iRvalue = lstrlen (szPath);
  1506.           if (szPath[iRvalue - 1] != '\\')
  1507.         {
  1508.           lstrcat (szPath, "\\");
  1509.         }
  1510.           lstrcpy (szTemp, szPath);
  1511.  
  1512.           if (!fProfileFound)
  1513.         {
  1514.           lstrcat (szTemp, szEnv);
  1515.           lstrcat (szTemp, szIni);
  1516.  
  1517.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1518.             {
  1519.               lstrcpy (szAppProFile, szTemp);
  1520.               fProfileFound = TRUE;
  1521.             }
  1522.  
  1523.           lstrcpy (szTemp, szPath);
  1524.           lstrcat (szTemp, szNewsDefault);
  1525.           if (OpenFile (szTemp, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1526.             {
  1527.               lstrcpy (szNewsSrc, szTemp);
  1528.               fNewsFound = TRUE;
  1529.             }
  1530.  
  1531.         }
  1532.  
  1533.           if (fProfileFound && fNewsFound)
  1534.         {
  1535.           break;
  1536.         }
  1537.  
  1538.           /* need to add a dialog that the user may enter the */
  1539.           /* information! */
  1540.           lstrcpy (szTemp, "Could not use the Command Line Information for ");
  1541.  
  1542.           if (!fProfileFound && !fNewsFound)
  1543.         {
  1544.           lstrcat (szTemp, ".Ini and NewsSrc");
  1545.         }
  1546.           else if (!fProfileFound)
  1547.         {
  1548.           lstrcat (szTemp, szIni);
  1549.         }
  1550.           else
  1551.         {
  1552.           lstrcat (szTemp, szNewsDefault);
  1553.         }
  1554. d631 1
  1555. a631 1
  1556.           MessageBox (NULL, szTemp, "Soft Error", MB_OK | MB_ICONQUESTION);
  1557. d633 1
  1558. a633 1
  1559.         }
  1560. d635 1
  1561. a635 1
  1562.     }
  1563. d640 4
  1564. a643 4
  1565.     {
  1566.       AnsiLowerBuff (szEnv, lstrlen (szEnv));
  1567.       lpEnvStr = getenv (szEnv);
  1568.     }
  1569. d646 34
  1570. a679 34
  1571.     {            /* found environment varible, check it out */
  1572.       lstrcpy (szPath, lpEnvStr);
  1573.       if (szPath[iRvalue - 1] != '\\')
  1574.         {
  1575.           lstrcat (szPath, "\\");
  1576.         }
  1577.  
  1578.       if (!fProfileFound)
  1579.         {            /* look for the .Ini file */
  1580.           lstrcpy (szAppProFile, szPath);
  1581.           lstrcat (szAppProFile, szEnv);
  1582.           lstrcat (szAppProFile, szIni);
  1583.  
  1584.           if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1585.         {
  1586.           fProfileFound = TRUE;
  1587.         }
  1588.         }
  1589.  
  1590.       if (!fNewsFound)
  1591.         {            /* look for the .NewsSrc file */
  1592.           lstrcpy (szNewsSrc, szPath);
  1593.           lstrcat (szNewsSrc, szNewsDefault);
  1594.  
  1595.           if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1596.         {
  1597.           fNewsFound = TRUE;
  1598.         }
  1599.         }
  1600.  
  1601.       if (fProfileFound && fNewsFound)
  1602.         {
  1603.           break;
  1604.         }
  1605. d681 1
  1606. a681 1
  1607.     }
  1608. d686 36
  1609. a721 36
  1610.     {
  1611.       while (iRvalue--)
  1612.         {            /* remove the module name */
  1613.           if (szPath[iRvalue] == '\\')
  1614.         {
  1615.           szPath[++iRvalue] = 0;
  1616.           break;
  1617.         }
  1618.         }
  1619.  
  1620.       if (!fProfileFound)
  1621.         {            /* look for the .Ini file */
  1622.           lstrcpy (szAppProFile, szPath);
  1623.           lstrcat (szAppProFile, szEnv);
  1624.           lstrcat (szAppProFile, szIni);
  1625.           if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1626.         {
  1627.           fProfileFound = TRUE;
  1628.         }
  1629.         }
  1630.  
  1631.       if (!fNewsFound)
  1632.         {            /* look for the NewsSrc file */
  1633.           lstrcpy (szNewsSrc, szPath);
  1634.           lstrcat (szNewsSrc, szNewsDefault);
  1635.  
  1636.           if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1637.         {
  1638.           fNewsFound = TRUE;
  1639.         }
  1640.         }
  1641.  
  1642.       if (fProfileFound && fNewsFound)
  1643.         {
  1644.           break;
  1645.         }
  1646. d723 1
  1647. a723 1
  1648.     }
  1649. d728 24
  1650. a751 2
  1651.     {
  1652.       lstrcat (szPath, "\\");
  1653. d753 4
  1654. a756 26
  1655.       if (!fProfileFound)
  1656.         {            /* look for the .Ini file */
  1657.           lstrcpy (szAppProFile, szPath);
  1658.           lstrcat (szAppProFile, szEnv);
  1659.           lstrcat (szAppProFile, szIni);
  1660.           if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1661.         {
  1662.           fProfileFound = TRUE;
  1663.         }
  1664.         }
  1665.  
  1666.       if (!fNewsFound)
  1667.         {            /* look for the NewsSrc file */
  1668.           lstrcpy (szNewsSrc, szPath);
  1669.           lstrcat (szNewsSrc, szNewsDefault);
  1670.  
  1671.           if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1672.         {
  1673.           fNewsFound = TRUE;
  1674.         }
  1675.         }
  1676.  
  1677.       if (fProfileFound && fNewsFound)
  1678.         {
  1679.           break;
  1680.         }
  1681. d758 1
  1682. a758 1
  1683.     }
  1684. d763 2
  1685. a764 2
  1686.     {
  1687.       lstrcat (szPath, "\\");
  1688. d766 21
  1689. a786 26
  1690.       if (!fProfileFound)
  1691.         {            /* look for the .Ini file */
  1692.           lstrcpy (szAppProFile, szPath);
  1693.           lstrcat (szAppProFile, szEnv);
  1694.           lstrcat (szAppProFile, szIni);
  1695.           if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1696.         {
  1697.           fProfileFound = TRUE;
  1698.         }
  1699.         }
  1700.  
  1701.       if (!fNewsFound)
  1702.         {            /* look for the NewsSrc file */
  1703.           lstrcpy (szNewsSrc, szPath);
  1704.           lstrcat (szNewsSrc, szNewsDefault);
  1705.  
  1706.           if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1707.         {
  1708.           fNewsFound = TRUE;
  1709.         }
  1710.         }
  1711.  
  1712.       if (fProfileFound && fNewsFound)
  1713.         {
  1714.           break;
  1715.         }
  1716. d788 6
  1717. a793 1
  1718.     }
  1719. d797 8
  1720. a804 8
  1721.     {            /* look for the .Ini file */
  1722.       lstrcpy (szAppProFile, szEnv);
  1723.       lstrcat (szAppProFile, szIni);
  1724.       if (OpenFile (szAppProFile, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1725.         {
  1726.           fProfileFound = TRUE;
  1727.         }
  1728.     }
  1729. d807 2
  1730. a808 2
  1731.     {            /* look for the NewsSrc file */
  1732.       lstrcpy (szNewsSrc, szNewsDefault);
  1733. d810 5
  1734. a814 5
  1735.       if (OpenFile (szNewsSrc, &ofOpenBuffer, OF_EXIST) != HFILE_ERROR)
  1736.         {
  1737.           fNewsFound = TRUE;
  1738.         }
  1739.     }
  1740. d817 3
  1741. a819 3
  1742.     {
  1743.       break;
  1744.     }
  1745. d825 3
  1746. a827 3
  1747.           "Can Not Find Your .Ini File or NewsSrc File",
  1748.           "Fatal Error",
  1749.           MB_OK | MB_ICONEXCLAMATION);
  1750. @
  1751.  
  1752.  
  1753. 1.2
  1754. log
  1755. @check value returned from getenv for NULL
  1756. @
  1757. text
  1758. @d1 1
  1759. d4 1
  1760. a4 1
  1761.  * $Id: ini-news.c 1.1 1993/02/16 20:53:50 rushing Exp rushing $
  1762. d6 3
  1763. @
  1764.  
  1765.  
  1766. 1.1
  1767. log
  1768. @Initial revision
  1769. @
  1770. text
  1771. @d3 4
  1772. a6 2
  1773.  * $Id$
  1774.  * $Log$
  1775. d8 1
  1776. d361 1
  1777. a361 1
  1778.       if ((iRvalue = lstrlen (lpEnvStr)))
  1779. @
  1780.